home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44a.zip / MIS006.QM < prev    next >
Text File  |  1992-02-17  |  5KB  |  118 lines
  1. *                               mis006.qm
  2. *                     Miscellaneous Other New Macros
  3. *                        Written By Tom Hogshead
  4. *                       [ See MISCxx.QM For Use ]
  5. *                                2/17/92
  6. *  Key    Subfile              Description
  7. * =====  =========      =================================================
  8. * @(3)                  Test True/False for WhiteSpace and non-WhiteSpace |new
  9. * @(f5) {e:\up\MACR*}   Test True/False Results, Tim Farley, Author
  10. * #(F5)                 Always Append with Pause
  11. * #(F6)                 Always Append with Pause, Best in Macros
  12. * #(F7)                 Always Overwrite, File Name Specified
  13. * #(F8)                 Always Overwrite with Pause
  14. * @(2)                  Remove Colons in File After jump/jt../jf.. Labels
  15. * #(F10)                RepeatFind to View Colons After #F9
  16. *
  17. *       {e:\up\MISC*}   Return To MISCxx.QM
  18. *
  19. *-- eoi
  20.  
  21. *                           M A C R O S
  22. * ----------------------------------------------------------------------
  23. * @(3) Test True/False for WhiteSpace and non-WhiteSpace, v2.15 Reqd.
  24. * ----------------------------------------------------------------------
  25. * This macro will test true if character under cursor is a white space
  26. * and false otherwise.  Invoke the macro with the cursor at the test
  27. * point, the <enter> to terminate.  ".T." inidicate "true", etc.  This
  28. * macro was written at the request of Rajan Datta on SemWare ILINK
  29. * Conference 21, 12/27/91.
  30.  
  31. @3          macrobegin
  32.             splitline #173 cursordown begline
  33.             firstnonwhite jtrue TRUE
  34.             find ".F." pause escape jump FALSE
  35.     TRUE:   find ".T." pause escape
  36.     FALSE:  cursorup endline cursorleft delch joinline                     *|
  37. *
  38. * 38 bytes Fri  12-27-1991  17:49:29 (TH @3, to RD #21/4815)
  39. * 39 bytes Fri  12-27-1991  22:53:50 (TH @3, ok for insert off)
  40.  
  41. * 
  42. * ----------------------------------------------------------------------
  43. * #(F5)   Always Append with Pause
  44. * ----------------------------------------------------------------------
  45. * Change Endline to Begline to always overwrite.  This macro is a
  46. * modification to a similar macro in MACROS.TXT v2.15 documentation.
  47.  
  48. #F5     MacroBegin
  49.         CursorRight CursorLeft
  50.         WriteBlock DelLine Pause Return
  51.         EndLine PrevPosition
  52. * 12 bytes Sun  10-20-1991  15:34:23 (TH #F5)
  53.  
  54. * 
  55. * ----------------------------------------------------------------------
  56. * #(F6)   Always Append with Pause, Best For Macros
  57. * ----------------------------------------------------------------------
  58. #F6     MacroBegin
  59.         endline cursorright
  60.         WriteBlock DelLine Pause Return "A"
  61.         backspace begline
  62. * 14 bytes Sun  10-20-1991  15:34:28 (TH #F6)
  63.  
  64. * 
  65. * ----------------------------------------------------------------------
  66. * #(F7)   Always Overwrite, File Name Specified, Best in macro
  67. * ----------------------------------------------------------------------
  68. * Change "O" to "A" to always append.
  69.  
  70. #F7     MacroBegin
  71.         endline cursorright writeblock Pause return "o" backspace begline
  72. * 13 bytes Fri  11-15-1991  22:52:36 (TH #F7)
  73.  
  74. * 
  75. * ----------------------------------------------------------------------
  76. * #(F8)   Always Overwrite with Pause, Best CurrentFilename w/Pause
  77. * ----------------------------------------------------------------------
  78. * Change Begline to Endline to always append.  Insert is Off after execution .
  79.  
  80. #F8     MacroBegin
  81.         SetInsMode ToggleInsert
  82.         CursorRight CursorLeft
  83.         WriteBlock CurrentFileName Pause Return
  84.         BegLine PrevPosition
  85. * 14 bytes Sat  10-26-1991  17:17:26 (TH #F8)
  86.  
  87. * 
  88. * ----------------------------------------------------------------------
  89. * @(2)    Remove All Colons in File After Jump/Jtrue/jfalse Labels,
  90. *         For Next Major QEdit Release
  91. * ----------------------------------------------------------------------
  92. * This macro requires QEdit v2.15.
  93.  
  94. @2      macrobegin
  95.         setscreenoff begfile
  96. * -------- Find jtrue, jfalse and jump with colon after label --------*
  97.  AGAIN: find " j" return "I" return jfalse NOMOR
  98.         wordright wordright isendline jfalse NEXT wordright
  99.   NEXT: markword gotoblockend markcolumn
  100. * --------------------- Remove colon after label ---------------------*
  101.         findreplace ":" return " " return "GLN" return
  102.         wordleft wordleft cursorleft jump  AGAIN
  103.  NOMOR:
  104. * ------- Check to see if colons were removed, requires FGREP -------*
  105.         savefile editfile "c:!" return quit gotoblockbeg begfile unmarkblock
  106.         DOS 'FGREP / j/>c' ':! ' currentfilename return return
  107.         editfile return cursordown Find ":" return delline return
  108.         setscreenon Pause killfile prevfile
  109. *
  110. * 108 bytes Wed  11-13-1991  10:31:45 (TH @2)
  111.  
  112. * 
  113. * ----------------------------------------------------------------------
  114. * #(F10)   RepeatFind to View Colons After #F9
  115. * ----------------------------------------------------------------------
  116. #F10 repeatfind
  117.  
  118.